home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 401_500 / DISK0417 / DISK0417.ZIP / PROLOG.ARC / VISION.ARC / LISTING2.PRO < prev    next >
Text File  |  1986-05-26  |  3KB  |  173 lines
  1. .he                         FRAMES LISTING2
  2. .pn1
  3. /* 
  4.     Title: LISTING2
  5.     Purpose: Data for "FRAMES.PRO"
  6.     Note: Not an executable program
  7. */
  8.  
  9.      window_type1
  10.       ako
  11.            value : window
  12.       panes
  13.            value : 12
  14.       style
  15.            value : sash
  16.      
  17.      window_type2
  18.       ako
  19.            value : window
  20.       panes
  21.            value : 24
  22.       style
  23.            value : sash
  24.  
  25.      window_type3
  26.       ako
  27.            value : window
  28.       panes
  29.            value : 3
  30.       style
  31.            value : picture
  32.  
  33.      window_type4
  34.       ako
  35.            value : window
  36.       panes
  37.            value : 3
  38.       style
  39.            value : sash
  40.  
  41.      window_type5
  42.       ako
  43.            value : window
  44.       panes
  45.            value : 2
  46.       style
  47.            value : sash
  48.  
  49.      window
  50.       ako
  51.            value : thing
  52.       area
  53.            if_needed : window_area
  54.  
  55.      window_area(Window,Area) :-
  56.       fget(Window,height,Height),
  57.       fget(Window,width,Width),
  58.       Area is Height * Width,
  59.       freplace(Window,area,Area).
  60.  
  61.      door_type1
  62.       ako
  63.            value : door
  64.       panels
  65.            value : 4
  66.       symmetry
  67.            value : yes
  68.       doorway
  69.            value : [columns,fan_light]
  70.  
  71.      door_type2
  72.       ako
  73.            value : door
  74.       panels
  75.            value : 6
  76.       symmetry
  77.            value : yes
  78.       doorway
  79.            value : [columns, portico, side_windows]
  80.  
  81.      door_type3
  82.       ako
  83.            value : door
  84.       panels
  85.            value : 0
  86.       symmetry
  87.            value : no
  88.       doorway
  89.            value : []
  90.  
  91.      door
  92.       ako
  93.            value : thing
  94.       area
  95.            if_needed : door_area
  96.  
  97.      door_area(Door,Area) :-
  98.       fget(Door,height,Height),
  99.       fget(Window,width,Width),
  100.       Area is Height * Width,
  101.       freplace(Door,area,Area).
  102.  
  103.      siding_type1
  104.       ako
  105.            value : siding
  106.       material
  107.            value : clapboard
  108.       width
  109.            value : narrow
  110.       cornerboard
  111.            value : yes
  112.  
  113.      siding_type2
  114.       ako
  115.            value : siding
  116.       material
  117.            value : aluminum
  118.       width
  119.            value : wide
  120.       cornerboard
  121.            value : no
  122.  
  123.      siding
  124.       ako
  125.            value : thing
  126.  
  127.      house_type1
  128.       ako
  129.            value : house
  130.       stories
  131.            value : 3
  132.       siding
  133.            value : siding_type1
  134.       roof
  135.            value : gable
  136.       window1
  137.            optional : yes
  138.            xposition : 2
  139.            yposition : 3
  140.            type : window_type2
  141.       window2
  142.            xposition : 1
  143.            yposition : 2
  144.            type : window_type2
  145.       window3
  146.            xposition : 3
  147.            yposition : 2
  148.            type : window_type2
  149.  
  150.      proto_house
  151.       ako
  152.            value : house_type1
  153.       window4
  154.            xposition : 1
  155.            yposition : 1
  156.            type : window_type2
  157.       door
  158.            xposition : 3
  159.            yposition : 1
  160.            type : door_type1
  161.  
  162.      proto_house_mirror_image
  163.       ako
  164.            value : house_type1
  165.       window4
  166.            xposition : 3
  167.            yposition : 1
  168.            type : window_type2
  169.       door
  170.            xposition : 1
  171.            yposition : 1
  172.            type : door_type1
  173.